home *** CD-ROM | disk | FTP | other *** search
/ RComp HTML Edit Studio for RISC OS / RComp HTML Edit Studio for RISC OS.iso / ZIPS / HTML.ZIP / HTMLEdit / !HTMLEdit / !Run < prev    next >
Encoding:
Text File  |  2002-05-10  |  1.8 KB  |  42 lines

  1. if "<System$Path>" = "" then Error 0 System resources cannot be found
  2. Set HTMLEdit$OS4 1
  3. RMEnsure UtilityModule 3.80 Set HTMLEdit$OS4 0
  4. RMEnsure UtilityModule 5.00 IF "<HTMLEdit$OS4>" = 0 Then IconSprites <Obey$Dir>.!Sprites Else IconSprites <Obey$Dir>.!SpritesR4
  5. Set HTMLEdit$OS5 1
  6. RMEnsure UtilityModule 5.00 Set HTMLEdit$OS5 0
  7. If "<HTMLEdit$OS5>" = 1 Then IconSprites <Obey$Dir>.5Sprites
  8. |
  9. Set HTMLEdit$Dir <Obey$Dir>
  10. If "<Alias$@RunType_695>" = "" Then Set Alias$@RunType_695 Run <ChangeFSI$Dir>.!Run %%*0
  11. Set File$Type_695 GIF
  12. |Set HTMLEdit$Path <Obey$Dir>.
  13. Set HTMLEditUser$Path <HTMLEdit$Dir>.User.
  14. Set HTMLEditRes$Path <HTMLEdit$Dir>.Resources.
  15. |
  16. Set HTMLEdit$DateFormat "%zdy%st %mo %ce%yr"
  17. Set HTMLEdit$TimeFormat "%z24:%mi %AM"
  18. |
  19. RMensure SharedClibrary 0 System:Modules.clib
  20. RMensure SharedClibrary 3.70 Error You need at least version 3.70 of the shared C library
  21. rmensure ColourTrans 0.51 rmload System:Modules.Colours
  22. rmensure ColourTrans 0.51 Error you need ColourTrans 0.51 or later
  23. rmensure MessageTrans 0.06 rmload System:Modules.MsgTrans
  24. rmensure MessageTrans 0.06 Error You need MessageTrans 0.06 or later
  25. |
  26. RMEnsure ColourPicker 0.31 Load System:Modules.Picker
  27. RMEnsure ColourPicker 0.31 Error 0 ColourPicker module not found or too old
  28. |
  29. |
  30. | Check for 32bit only systems.  We know that OS 4.39 and earlier only run on 26bit CPUs
  31. | Clib 5 and higher can run 32bit code, but 26bit is better for 26bit CPUs
  32. Set HTMLEdit$OS5 1
  33. RMEnsure SharedCLibrary 5.00 Set HTMLEdit$OS5 0
  34. RMEnsure UtilityModule 4.40 Set HTMLEdit$OS5 0
  35. |
  36. IF "<HTMLEdit$OS5>" = 0 Then HTMLEditRes:RMOneOf X-Files 0.58 WebFS 1.58 HTMLEditRes:WebFS
  37. |
  38. WimpSlot -min 920k 
  39. Set HTMLEdit$Banner 5
  40. RMEnsure UtilityModule 4.39 Set HTMLEdit$Banner 4
  41. IF "<HTMLEdit$Banner>" = 4 Then Run <HTMLEdit$Dir>.!Start4 ELSE Run <HTMLEdit$Dir>.!Start
  42.